Option Explicit
Sub A_Sample003()
    Dim myRng As Range
    Dim myStr As String
    myStr = "ХHƹxsdAUTwsC"
    On Error Resume Next
        Set myRng = Application.InputBox(myStr, Type:=8)
    On Error GoTo 0
    If myRng Is Nothing Then
        MsgBox "wC"
    Else
        MsgBox myRng.Address
    End If
    Set myRng = Nothing			'
End Sub
